Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/lastcall.dxr/00135_Salt behavior.ls

Text File | 2000-03-27 | 1.4 KB | 72 lines

property pSpr, pOrigMember, pNoSpoon, pPouring, pDragMember, pTimer, pTilt, pIngredient
global gFloatSprite

on beginSprite me
  pSpr = sprite(me.spriteNum)
  pOrigMember = pSpr.member
  pDragMember = nextMember(pSpr.member)
  pNoSpoon = nextMember(pSpr.member, -1)
  pIngredient = #salt
  pTilt = #left
end

on mouseEnter me
  if not draggingAnything() then
    pTimer = nowTicks()
    showToolTip(pSpr, #salt)
  end if
end

on mouseLeave me
  if not draggingAnything() then
    hideToolTip()
  end if
end

on mouseDown me
  if the doubleClick then
    exit
  end if
  if draggingAnything() then
    replaceDraggingAnything()
    exit
  end if
  menuDown = nowTicks()
  repeat while the stillDown
    checkElapsedTime()
    if ticksSince(menuDown) > 10 then
      forceToolTip(pSpr, #salt, the clickLoc)
    end if
    updateStage()
  end repeat
  sendSprite(gFloatSprite, #mPickUpBottle, pSpr, 1, VOID, #salt, "sugar_sound")
  pSpr.member = pNoSpoon
  pPouring = 1
end

on mOverItem me, bottleSprite, spoutLoc
  put "Should never get to pouring salt behavior"
  Match = pourIntersection(pSpr, bottleSprite, spoutLoc)
  return Match
end

on mReplaceIt me
  pSpr.member = pOrigMember
  pPouring = 0
end

on mDoneDragging
end

on mouseWithin
  if draggingAnything() then
    pTimer = nowTicks()
  else
    if tipTickRange(pTimer) then
      forceToolTip(pSpr, #salt)
    else
      dismissToolTip()
    end if
  end if
end